home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / cpkocx17 / libtst32.frm < prev    next >
Text File  |  1998-09-03  |  7KB  |  245 lines
  1. VERSION 5.00
  2. Object = "{6B17E7E3-AECA-11D0-B4D8-444553540000}#1.0#0"; "CARDPK32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Custom Card DLL Test"
  6.    ClientHeight    =   5670
  7.    ClientLeft      =   1155
  8.    ClientTop       =   1425
  9.    ClientWidth     =   6165
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   5670
  13.    ScaleWidth      =   6165
  14.    Begin MSComDlg.CommonDialog CD1 
  15.       Left            =   5400
  16.       Top             =   1080
  17.       _ExtentX        =   847
  18.       _ExtentY        =   847
  19.       _Version        =   327681
  20.       CancelError     =   -1  'True
  21.       DialogTitle     =   "Select Library"
  22.       Filter          =   "Library (*.dll)|*.dll"
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Change Library"
  26.       BeginProperty Font 
  27.          Name            =   "MS Sans Serif"
  28.          Size            =   8.25
  29.          Charset         =   0
  30.          Weight          =   700
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       Height          =   375
  36.       Left            =   240
  37.       TabIndex        =   8
  38.       Top             =   120
  39.       Width           =   1575
  40.    End
  41.    Begin Cardpk.Cardpack C2 
  42.       Height          =   1440
  43.       Left            =   240
  44.       TabIndex        =   7
  45.       Top             =   600
  46.       Width           =   4890
  47.       _Version        =   65536
  48.       _ExtentX        =   8625
  49.       _ExtentY        =   2540
  50.       _StockProps     =   65
  51.       CardsLibrary    =   "cards32.dll"
  52.       SpreadStyle     =   2
  53.       SpreadDir       =   2
  54.       DrawStepHoriz   =   17
  55.       NumCards        =   16
  56.       StackFacing     =   1
  57.    End
  58.    Begin VB.CommandButton bBck 
  59.       Caption         =   "<"
  60.       BeginProperty Font 
  61.          Name            =   "MS Sans Serif"
  62.          Size            =   9.75
  63.          Charset         =   0
  64.          Weight          =   700
  65.          Underline       =   0   'False
  66.          Italic          =   0   'False
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   375
  70.       Left            =   3120
  71.       TabIndex        =   5
  72.       Top             =   120
  73.       Width           =   495
  74.    End
  75.    Begin VB.CommandButton bFwd 
  76.       Caption         =   ">"
  77.       BeginProperty Font 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   9.75
  80.          Charset         =   0
  81.          Weight          =   700
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   375
  87.       Left            =   5280
  88.       TabIndex        =   4
  89.       Top             =   120
  90.       Width           =   495
  91.    End
  92.    Begin Cardpk.Cardpack C1 
  93.       Height          =   1440
  94.       Index           =   3
  95.       Left            =   3120
  96.       TabIndex        =   3
  97.       Top             =   3780
  98.       Width           =   2640
  99.       _Version        =   65536
  100.       _ExtentX        =   4657
  101.       _ExtentY        =   2540
  102.       _StockProps     =   65
  103.       CardsLibrary    =   "cards32.dll"
  104.       SpreadStyle     =   3
  105.       SpreadDir       =   2
  106.       DrawStepHoriz   =   35
  107.       NumCards        =   4
  108.       StackBack1      =   11
  109.    End
  110.    Begin Cardpk.Cardpack C1 
  111.       Height          =   1440
  112.       Index           =   2
  113.       Left            =   240
  114.       TabIndex        =   2
  115.       Top             =   3780
  116.       Width           =   2640
  117.       _Version        =   65536
  118.       _ExtentX        =   4657
  119.       _ExtentY        =   2540
  120.       _StockProps     =   65
  121.       CardsLibrary    =   "cards32.dll"
  122.       SpreadStyle     =   3
  123.       SpreadDir       =   2
  124.       DrawStepHoriz   =   35
  125.       NumCards        =   4
  126.       StackBack1      =   7
  127.    End
  128.    Begin Cardpk.Cardpack C1 
  129.       Height          =   1440
  130.       Index           =   1
  131.       Left            =   3120
  132.       TabIndex        =   1
  133.       Top             =   2160
  134.       Width           =   2640
  135.       _Version        =   65536
  136.       _ExtentX        =   4657
  137.       _ExtentY        =   2540
  138.       _StockProps     =   65
  139.       CardsLibrary    =   "cards32.dll"
  140.       SpreadStyle     =   3
  141.       SpreadDir       =   2
  142.       DrawStepHoriz   =   35
  143.       NumCards        =   4
  144.       StackBack1      =   3
  145.    End
  146.    Begin Cardpk.Cardpack C1 
  147.       Height          =   1440
  148.       Index           =   0
  149.       Left            =   240
  150.       TabIndex        =   0
  151.       Top             =   2160
  152.       Width           =   2640
  153.       _Version        =   65536
  154.       _ExtentX        =   4657
  155.       _ExtentY        =   2540
  156.       _StockProps     =   65
  157.       CardsLibrary    =   "cards32.dll"
  158.       SpreadStyle     =   3
  159.       SpreadDir       =   2
  160.       DrawStepHoriz   =   35
  161.       NumCards        =   4
  162.    End
  163.    Begin VB.Label lLibName 
  164.       BorderStyle     =   1  'Fixed Single
  165.       BeginProperty Font 
  166.          Name            =   "MS Sans Serif"
  167.          Size            =   9.75
  168.          Charset         =   0
  169.          Weight          =   700
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       Height          =   375
  175.       Left            =   0
  176.       TabIndex        =   9
  177.       Top             =   5280
  178.       Width           =   6135
  179.    End
  180.    Begin VB.Label Label1 
  181.       Caption         =   "Scroll Backs"
  182.       BeginProperty Font 
  183.          Name            =   "MS Sans Serif"
  184.          Size            =   9.75
  185.          Charset         =   0
  186.          Weight          =   700
  187.          Underline       =   0   'False
  188.          Italic          =   0   'False
  189.          Strikethrough   =   0   'False
  190.       EndProperty
  191.       Height          =   255
  192.       Left            =   3720
  193.       TabIndex        =   6
  194.       Top             =   120
  195.       Width           =   1455
  196.    End
  197. End
  198. Attribute VB_Name = "Form1"
  199. Attribute VB_GlobalNameSpace = False
  200. Attribute VB_Creatable = False
  201. Attribute VB_PredeclaredId = True
  202. Attribute VB_Exposed = False
  203.  
  204. Private Sub bBck_Click()
  205.     C1(0).StackBack1 = C1(1).StackBack1
  206.     C1(1).StackBack1 = C1(2).StackBack1
  207.     C1(2).StackBack1 = C1(3).StackBack1
  208.     If C1(3).StackBack1 = 14 Then
  209.         C1(3).StackBack1 = 1
  210.     Else
  211.         C1(3).StackBack1 = C1(3).StackBack1 + 1
  212.     End If
  213. End Sub
  214.  
  215. Private Sub bFwd_Click()
  216.     C1(3).StackBack1 = C1(2).StackBack1
  217.     C1(2).StackBack1 = C1(1).StackBack1
  218.     C1(1).StackBack1 = C1(0).StackBack1
  219.     If C1(0).StackBack1 = 1 Then
  220.         C1(0).StackBack1 = 14
  221.     Else
  222.         C1(0).StackBack1 = C1(0).StackBack1 - 1
  223.     End If
  224.  
  225. End Sub
  226.  
  227. Private Sub Command1_Click()
  228.  
  229.     On Error GoTo x
  230.     CD1.ShowOpen
  231.     C1(0).CardsLibrary = CD1.filename
  232.     C1(1).CardsLibrary = CD1.filename
  233.     C1(2).CardsLibrary = CD1.filename
  234.     C1(3).CardsLibrary = CD1.filename
  235.     C2.CardsLibrary = CD1.filename
  236.     lLibName = CD1.filename
  237. x:
  238.     Exit Sub
  239.     
  240. End Sub
  241.  
  242. Private Sub Form_Load()
  243.     lLibName = C1(0).CardsLibrary
  244. End Sub
  245.